home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '87 / Source ƒ / modula 2 ƒ / SFPackage ƒ / SFPACKAGE.MOD next >
Encoding:
Text File  |  1986-11-09  |  1.6 KB  |  36 lines  |  [TEXT/EDIT]
  1. IMPLEMENTATION  MODULE SFpackage;    (* Franz Kronseder 18.12.84 *)
  2.                                      (* last modification 20.06.85 fxk  *)
  3. FROM MacBase IMPORT trapnr,traparg,PTRAP1,Point,StrPtr;
  4. FROM SYSTEM  IMPORT ADDRESS,WORD, REGISTER, SETREG, CODE;
  5.  
  6. CONST sfput=1;  sfget=2; sfpget=4;  sfpput=3;  (* trap selector constants *)
  7.        Pack3 = 0A9EAH;                          (* trapnumber for Standard File Package *)
  8.  
  9.   (*$P-,$S-,$T-*)
  10.  PROCEDURE SFPutFile(left,top:INTEGER; prompt: StrPtr;  origName: StrPtr;
  11.                     dlgHook: ProcPtr; VAR reply: SFReply);
  12.   BEGIN  traparg:=sfput; trapnr:=Pack3; PTRAP1 END  SFPutFile;
  13.  
  14.  (*$P-,$S-,$T-*)
  15. PROCEDURE SFPPutFile(left,top:INTEGER; prompt: StrPtr;  origName: StrPtr;
  16.                      dlgHook: ProcPtr; VAR reply: SFReply; dlgID: INTEGER;
  17.                      filterProc: ProcPtr);
  18.   BEGIN traparg:=sfpput; trapnr:=Pack3; PTRAP1 END  SFPPutFile;
  19.  
  20.  (*$P-,$S-,$T-*)
  21. PROCEDURE SFGetFile(left,top:INTEGER; prompt:StrPtr;fileFilter:ProcPtr;
  22.                       numTypes: INTEGER; VAR typeList: SFTypeList;
  23.                        dlgHook: ProcPtr; VAR    reply: SFReply);
  24.    BEGIN traparg:=sfget; trapnr:=Pack3; PTRAP1 END  SFGetFile;
  25.  
  26.   (*$P-,$S-,$T-*)
  27. PROCEDURE SFPGetFile(left,top:INTEGER;
  28.                       prompt: StrPtr;    fileFilter: ProcPtr;
  29.                        numTypes: INTEGER; VAR typeList: SFTypeList;
  30.                         dlgHook: ProcPtr; VAR    reply: SFReply;
  31.                           dlgID: INTEGER;   filterProc: ProcPtr);
  32.    BEGIN traparg:=sfpget; trapnr:=Pack3; PTRAP1 END  SFPGetFile;
  33.  
  34. BEGIN
  35. END SFpackage.
  36.